home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / amigae.july.archive / 000053_crash!kirk.safb.af.mil!BWILLS_Thu, 22 Jul 93 19:46:38 PST.msg < prev    next >
Text File  |  1993-08-31  |  2KB  |  52 lines
  1. Received: by bkhouse.cts.com (V1.16/Amiga)
  2.     id AA00000; Thu, 22 Jul 93 19:46:38 PST
  3. Received: from kirk.safb.af.mil by crash.cts.com with smtp
  4.     (Smail3.1.28.1 #15) id m0oJBiW-0000fAC; Thu, 22 Jul 93 18:14 PDT
  5. Message-Id: <m0oJBiW-0000fAC@crash.cts.com>
  6. Date: 22 Jul 93 20:12:00 CST
  7. From: "Barry D. Wills" <BWILLS@kirk.safb.af.mil>
  8. To: "amigae" <amigae@bkhouse.cts.com>
  9. Subject: re: Help with DateStamp
  10.  
  11. /***
  12.  
  13. I hope someone can help me with this problem...I can't seem to get
  14. DateStamp and DateToStr working right <sigh>.  I keep on getting an
  15. 'illegal use of/reference to object' on this line:
  16.  
  17.     date.stamp := New(SIZEOF datestamp)
  18.  
  19. ----8<----8<---- ***/
  20.  
  21. MODULE 'dos/dos', 'dos/datetime'
  22.  
  23. PROC main()
  24.  
  25. DEF date : PTR TO datetime,
  26.     s[10] : ARRAY OF CHAR
  27.  
  28.     date := New(SIZEOF datetime)
  29. /*===============================================*/
  30. /*  REPLACE THESE TWO LINES...                   */
  31. /*  date.stamp := New(SIZEOF datestamp)          */
  32. /*  date.stamp := DateStamp(date.stamp)          */
  33. /*===============================================*/
  34. /*  ...WITH THIS ONE...                          */
  35.     VOID DateStamp(date.stamp)
  36. /*===============================================*/
  37. /*  BECAUSE... [Partial output from ShowModule:]
  38. (---) OBJECT datetime
  39. (  0)   stamp:substructure   == 12 bytes (this is automatic,
  40. ( 12)   format:CHAR                       no need to allocate!)
  41. ( 13)   flags:CHAR
  42. ( 14)   strday:LONG
  43. ( 18)   strdate:LONG
  44. ( 22)   strtime:LONG
  45. (---) ENDOBJECT     /* SIZEOF=26 */
  46. =================================================*/
  47.  
  48.     date.strdate := s
  49.     DateToStr(date)
  50.     WriteF('date: \s\n',s)
  51.  
  52. ENDPROC